home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / CDTools / MUIRexx / demos / MUIRexxBuild / test / example.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-19  |  969b  |  26 lines
  1. /* Application created by MUIBuild */
  2.  
  3. address example
  4.  
  5. MUIA_Gauge_Max = 0x8042bcdb
  6. MUIA_Gauge_Current = 0x8042f0dd
  7. MUIA_Gauge_Horiz = 0x804232dd
  8. TRUE = 1
  9. MUIA_Timer = 0x80426435
  10. MUIV_EveryTime = 0x49893131
  11. MUIA_Scale_Horiz = 0x8042919a
  12.  
  13. window COMMAND """quit""" PORT example
  14.  group HORIZ
  15.   label "Volume:"
  16.   image ID VUP SPEC "6:11"
  17.   group
  18.    gauge ID VGAUG ATTRS MUIA_Gauge_Horiz TRUE MUIA_Gauge_Max 200 MUIA_Gauge_Current 20 LABEL "Volume %ld"
  19.    object CLASS "Scale.mui" ATTRS MUIA_Scale_Horiz TRUE
  20.   endgroup
  21.   image ID VDN SPEC "6:12"
  22.  endgroup
  23. endwindow
  24. callhook ID VUP COMMAND """options results; address example; gauge ID VGAUG ATTRS "MUIA_Gauge_Current"; gauge ID VGAUG ATTRS "MUIA_Gauge_Current" result+5;""" PORT INLINE ATTRS MUIA_Timer MUIV_EveryTime
  25. callhook ID VDN COMMAND """options results; address example; gauge ID VGAUG ATTRS "MUIA_Gauge_Current"; gauge ID VGAUG ATTRS "MUIA_Gauge_Current" result-5;""" PORT INLINE ATTRS MUIA_Timer MUIV_EveryTime
  26.